home *** CD-ROM | disk | FTP | other *** search
/ Let's Learn About Machines / Let's Learn About Machines.iso / mac / macfiles / Atools / Shared.Dxr / 00900.ls next >
Encoding:
Text File  |  1997-09-18  |  1.6 KB  |  66 lines
  1. on startMovie
  2.   set HC to the number of cast "handCursor"
  3.   cursor([HC, HC + 1])
  4.   set HC to the number of cast "handCursor"
  5.   cursor([HC, HC + 1])
  6. end
  7.  
  8. on wait ticks
  9.   set temp to the timer
  10.   repeat while (the timer - temp) < ticks
  11.   end repeat
  12. end
  13.  
  14. on autospin
  15.   set whichSprite to the clickOn
  16.   set default to the castNum of sprite whichSprite
  17.   set current to 0
  18.   set current to current + 1
  19.   set the castNum of sprite whichSprite to default + current
  20.   updateStage()
  21.   wait(5)
  22.   repeat while the stillDown
  23.     if rollOver(whichSprite) then
  24.       set current to current + 1
  25.       if current = 15 then
  26.         set current to 1
  27.       end if
  28.       set the castNum of sprite whichSprite to default + current
  29.     else
  30.       set the castNum of sprite whichSprite to default + current
  31.     end if
  32.     updateStage()
  33.     wait(5)
  34.   end repeat
  35.   repeat while current < 14
  36.     set current to current + 1
  37.     set the castNum of sprite whichSprite to default + current
  38.     updateStage()
  39.     wait(5)
  40.   end repeat
  41.   set the castNum of sprite whichSprite to default
  42.   updateStage()
  43.   action(script default)
  44. end
  45.  
  46. on autohilite
  47.   set whichSprite to the clickOn
  48.   set default to the castNum of sprite whichSprite
  49.   set the castNum of sprite whichSprite to default + 1
  50.   updateStage()
  51.   wait(5)
  52.   repeat while the stillDown
  53.     if rollOver(whichSprite) then
  54.       set the castNum of sprite whichSprite to default + 1
  55.     else
  56.       set the castNum of sprite whichSprite to default
  57.     end if
  58.     updateStage()
  59.   end repeat
  60.   set the castNum of sprite whichSprite to default
  61.   updateStage()
  62.   if rollOver(whichSprite) then
  63.     action(script default)
  64.   end if
  65. end
  66.